home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / mischepalette.clssa < prev    next >
Text File  |  1995-01-20  |  891b  |  34 lines
  1. /***********************************************************************
  2.   GADGET: "'Mische Palette'" "6" 23 TYP: "?"
  3.  
  4.   $DAT >>MischePalette.clssa<<29.09.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.   GetAnimInfo
  15.   IF RESULT~="" THEN DO
  16.     Liste=GetClip("clPalette")
  17.     IF Liste~="" THEN DO
  18.       GetColor
  19.       PARSE VAR RESULT x r g b
  20.       St=""
  21.       DO UNTIL Liste=""
  22.         PARSE VAR Liste n rr gg bb Liste
  23.         St=St n TRUNC((r+rr)/2) TRUNC((g+gg)/2) TRUNC((b+bb)/2)
  24.       END
  25.       SetColor St
  26.     END
  27.     ELSE Message "'Keine Arbeitspalette vorhanden.''Arbeitspalette mit Merke Palette''erzeugen.'"
  28.   END
  29.   ELSE Message "'Keine Animation vorhanden!'"
  30.  
  31.   FailAt AltFail
  32. exit
  33.  
  34.